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1973 984 01: VAX=-11 BLi 
1erSep-1986 12:29:46 DISKSUMSR 
MODULE MAKSTR ( 
L ween . 415839) 
DENT = 4-000 
= 


“o> 


BEGIN 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
' DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'w ALL RIGHTS RESERVED. 


ie THIS ? io is FURNISHED eee A LICENSE AND MAY BE USED AND ag 
ONLY ACCORDANCE 


; 0 
!* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
!t TRANSFERRED. 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
= eepohat itn. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
:* 


i DIGITAL ASSUMES NO RESPONSIB 


IBILITY FOR THE USE OR _ RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH I 


LIT 
S NOT SUPPLIED BY DIGITAL. 


lee 

1 

FACILITY: F11ACP Structure Level 1 
i ABSTRACT: 


This routine converts a RAD-50 file name block into the 
equivalent ASCII name string. 


i ENVIRONMENT : 


STARLET operating system, including privileged system services 
and internal exec routines. 


AUTHOR: Andrew C. Goldstein, CREATION DATE: 3-Jan-1977 11:11 
i MODIFIED BY: 


vO2-001 ACG0186 Andrew C. Goldstein, 4-Feb-1981 21:19 
Fix garbage in high word of returned Length 


v02-000 ACG0167 Andrew C. Goldstein Lb Apr-1980 19:27 
Previous revision history moved to f11B.REV 
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s-32 V 


4.0-742 
F11A.SRCIMAKSTR.B32; ie 


| 
| 


<=z 


1$-se0-1984 91:10:09 are BL isee32 y4.0-742, 35) Page 


ARY RL SSL GRANT | 18 L532"; 
IRE *SRC$:FCPDEF.B32'; 


z | 


IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
length of string generated 


SIDE EFFECTS: 
NONE 
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MAKSTR 16-Sep-1984 01:10:09 VAX=-11 Bliss-32 V4.0-742 Page 3 
v04-000 ersten eee ag ee NRCSUMMASTER SEY TIASSREIMAKSTR.B32:1°" (23 
$ 16 GLOBAL ROUTINE MAKE_STRING (NAMEBLOCK, STRING) = | 
65 A nied 
oF 9 FUNCTIONAL DESCRIPTION: 
$9 : i This routine converts a RAD-50 file name block into the 
£9 ? } equivalent ASCII name string. 
te Bs i CALLING SEQUENCE: 
fe rs] MAKE_STRING (ARG1, ARG2? 
75 384 i INPUT PARAMETERS: 
78 34 } ARG1: address of file name block 
78 331 i IMPLICIT INPUTS: 
i BL Sie 
81 0394 i QUTPUT PARAMETERS: | 
8 0395 : ARG2: address of buffer for string 
8 0396 ' 
84 0397 ' 
0398 ! 
0399 ' 
0400 ' 
0401 : 
ref ' 
040 ! 
0404 ! | 
0405 ! 
bcos 1 | 
0408 2 BEGIN 
0610 3 MAP | 
11 NAMEBLOCK : REF BBLOCK, ' name block argument 
\ STRING : REF VECTOR C,BYTEJ; ! string buffer arg 
14 2 LOCAL | 
15 BLOCKP : REF VECTOR p-NORD » | pointer into name block 
16 STRINGP : REF VECTOR C BYTE], ! pernter into string 
17 CHARS : VECTOR FS BYTE], ! holding place for characters 
+ STRINGD : VECTOR (24; ! string descriptor for FAO 
sf BIND 


DESCRIPTOR (*!SW'), ! format string for FAO 
UPLIT BYTE (° ;.°) 
: VECTOR C,BYTEJ; ! type and version delimiters 


FORMAT 
DELIMITER 


! Set up the pointers. Then start up the outer loop, which iterates 
over name and type fields. 


BLOCKP = NAMEBLOCKCNMBSW_NAME J; 
STRINGP = .STRING; 
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A.SRCIMAKSTR.B32; 479 (2) 


SS 


: 120 433 DECR K FROM 2 TO 1 DO : 
; : 1 ? : BEGIN : 
3 3 g “ § : The next loop iterates over the RAD-50 words in the name block. : 
> 124 4 : There are 3 words for name, 1 for type. Expand each word into ; 
> 125 438 : the 3 RAD-50 characters. ‘ 
; 4% § 439 ; ° 
4 1 40 é 
; ; : ork ? —, } on (IF .K THEN 1 ELSE 3) TO 1 DO ; 
3 } 0445 4 CHARSLO = .BLOCKP[O] / (40*40); : 
3 13) 444 CHARS[1) = .BLOCKP 6 ho MOD 40; | : 
; : ; Ree? : CHARS(2) = .BLOCKPLOJ MOD 40; : 
> 134 0447 4 ! Now convert each character into the correct ASCII code and store it : 
3 135 0448 4 ! in the string buffer if it is not null. : 
; 136 0449 4! : 
: 137 0450 4 | 
; 138 0451 4 INCR J FROM 0 TO 2 DO : 
$ 199 B26 4 IF_.CHARSC.J] NEQ 0 : 
; 140 04535 4 THEN 
; 141 0454 5 BEGIN 
$ rs 0455 5 STRINGPCO) = 
; 14 0456 6 
3 144 0457 6 IF .CHARSC.J) ox $ 30 
; 145 0458 6 THEN . CHARS - i+ ‘at | 
; 146 0459 6 rs -CHARSC.JJ = 30 + to: 
: (147 0460 5 
; 148 0461 § STRINGP = .STRINGP + 1; 
:; 149 0462 4 : 
3; 199 0465 4 BLOCKP = .BLOCKP + 2; ! move to next word 
3 131 beee 3 END; ! end of word loop | 
3 138 0466 ! At the end of each field, insert the appropriate field delimiter. 
3 154 0467 ; 
; 155 0468 
: 156 0469 STRINGPCO) = .DELIMITERC.K); 
3 Vor 0470 3 STRINGP = .STRINGP + 1; | 
; 138 Ror) 2 END; ! end of outer loop | 
: 160 047 : ! Now build a descriptor for the remainder of the string buffer and 
; 161 0474 2! call FAO to convert the ve~sion number. 
; 16¢ 0475 ; 
; 16 047 
; 164 047 STRINGD(O) = 6; 
; 165 0478 STRINGD(C1) = .STRINGP; 
i 166 0479 ¢ SFAO (FORMAT, STRINGDEOJ, STRINGDCO], .BLOCKPLO}); | 
3 198 ett RETURN .STRINGP + .STRINGD[O] - .STRING; ! final byte count 
; 170 04835 1 END; ! end of routine MAKE_STRING 

-TITLE 


MAKSTR 
-IDENT \v04-000\ 
-PSECT S$CODES,NOWRT,2 
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MAKSTR 16-Sep-1984 01:10:09 VAX=-11 Bliss-32 V4.0-742 Page 5. 
v04-000 Freon aoe 83:8 0e PIR SUMGMASTERCCY TIA, SREIMAKSTR.B32:10°" (23 v0 
57 53 21 000 9 P.AAB: .ASCII \!SW\ ; ; 
38 -BLKB 1 Ld 
00000003 00004 P.AAA: <LONG 3 ; ; 
00990099" 0008 eADDRESS P.AAB 3 : 
2E 38 20 O000C P.AAC: <ASCII \ :.\ : ; 
FORMAT= P.AAA : 
DELIMITER= P- AAC : 
-EXTRN SYSSFAO | : 
003¢ 00 .ENTRY MAKE_STRING, Save R2,R3,R4,R5 : 0376 | ; 
SE 0c C2 000 SUBL 12,~SP : | ; 
50 04 AC 06 €1 0000 ADDL3 #6, NAMEBLOCK, BLOCKP + 0430 ; 
5¢ 08 AC DO OO00A MOVL STRING, STRINGP : 0431, 
é 0¢ DO 0000E MOVL #2, K + 0433 ; 
05 53 €9 00011 18: BLBC ~—siK, 28 + 0441 | : 
55 01 DO 00014 MOVL #1, RS : ; 
03 11 00017 BRB : | : 
55 D6 O001C 3$: INCL I : : 
52 11 QO01E BRB 9$ : : 
51 60 3c 0020 4$: MOVZWL (BLOCKP), R1 + 0443 ; 
51 00000640 8F C6 900¢ DIVL2 #1600, Ri ; : 
6E 51 90 O002A OVB  R1, CHARS : ; 
51 60 3¢ 0002D MOVZWL (BLOCKP) , R1 + 0644) ; 
51 38 C6 000 0 DIVL2 #40, R1 : ; 
7E 00 51 1 7A 000 MUL #1, R1, #0, (SP) : | ; 
51 51 BE e8 7B 00038 EDIV #46, (SP)+. R1, RI : | : 
01 AE 1 90 0003p OV R1, CHARS+1 : i 
51 60 3¢ 00041 MOVZWL (BLOCKP), R1 + 0445 : 
7E 00 51 01 7A 00044 EMUL #1. R1, #0, -(SP : : 
51 51 BE e8 7B 00049 EDIV. #46, (§P)+. R1, RI ; : 
02 AE 1 90 OO04E MOVB 1, CHARS+2 : : 
51 pA 0005 im 4 > 0451 : 
54 6E41 9A 00054 5$: MOVZBL CHARS(J], R4 : 0452 ; 
11. 13 00058 BEQL : : 
1E 54 91 O005A CMPB—saR4,-#30 + 0457 : 
06 1€ 0005D BGEQU : : 
54 40 A4 9E 0005F MOVAB 64(R4), R4 + 0458 : 
03 11 00063 BRB 7$ : : 
54 12 CO 00065 6$: ADDL2 #18, R4 + 0459 F 
82 54 90 00068 7$: MOVB R4, (STRINGP)+ 3; 0456 3 
ES 21 F3 00068 8$: AOBL EQ #2. J, > 045 : 
0 CO 0006F ADDL2 #2. BLOCKP > 046 F 
AB F5 000 é 9$: SOBGTR > 0441 ; 
82 84 AFG 20 007 MOVB DELIMITERCK], (STRINGP)+ > 0469 ; 
94 53 FS OOO7A SOBGTR K : 0433 : 
04 AE g D0 0007D MOVL #6, STRINGD : 0477 ; 
08 AE 0 0081 MOVL §STRINGP, STRINGD+4 : 0478 : 
7E 60 3c 00085 MOVZWL (BLOCKPS, -(SP) > 0479 | : 
08 Ace 9F 00088 PUSHAB STRINGD : ; 
0¢ AE OF 0088 PUSHAB STRINGD : : 
FF6 F OF 0 PUSHAB FORMAT : : 
000000006 Q 4 FB 009 CALLS #4, SYSSFA : ; 
06 AE CO 000 ADDL2 STRINGD, R ; 0481 | ; 
5 08 aC C2 0009D SUBL2 STRING, R2 : | : 


3 
18-Sep-1984 91:19:09 VAX-11 Bliss-32 V4.0-7 
14-Sep-1984 12:29:44 DISKSVMSMASTER:CF11A.S 
50 52 DO OO0A1 MOVL R2, RO 
04 O00A4 RET 
; Routine Size: 165 bytes, Routine Base: S$CODE$S + OO00F 
171 0484 1 
76 0485 1 END 
17 0486 0 ELUDOM 
; PSECT SUMMARY 
: Name Bytes Attributes 
: SCODES 180 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 Library Statistics 
Se ss Se a ats ees ey Syabelg «coowoce Pages Processing 
; File Total Loaded Percent Mapped Time 
: .$255$DUA28: CSYSLIBILIB.L32;1 18619 3 0 1000 00:02.0 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LISS$:MAKSTR/OBJ=OBJ$:MAKSTR MSRC$:MAKSTR/UPDATE=(ENHS$:MAKSTR) 


3; Size: 165 code + 15 data bytes 
; Run Time: :07. 
; Elapsed Time: 00:23.4 
3; Lines/CPU Min: 951 
3 Lexemes/CPU-Min: 14959 
: ry Used: 93 pages 
; Compilation Complete 
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